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#include <stdio.h> 

#include <stdlib.h> 

#include <stdarg.h> 

#include <strings.h> 

#include <math.h> 

#include "ri.h" 

#include "ri_state.h" 

#include <GL/gl.h> 

#include "ri_shader . h" 



/* temporary variable functions. we maintain two circularly linked lists 
with active and free temporary variables. when we need a new temp, 
we first see if we can grab one from the free list. if so, we remove 
it from the free list and add it to the active list. if not, we 
create a new temp and add it to the active list. when a temp : 
we move it from the active list to the free list. */ 

static Temp * active_temps = NULL; 

static Temp * free_temps = NULL; 



{ 



Temp *t; 



_free_temps ) { 

f ree_temps ; 

f ree_temps- 

f ree_temps 




of (Temp) ) ; 
T (1, &t->id) ; 
I (GL_TEXTURE_2D, t->id) ; 
i (GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_NEAREST) ; 
glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_NEAREST) ; 
glBindTextureEXT (GL_TEXTURE_2D, 0) ; 



if( active_temps ) { 

t->next = active_temps; 

t->prev = active_temps->prev; 

active_temps->prev->next = t; 

active_temps->prev = t; 

} else { 

active_temps = t; 

active_temps->prev = t; 

active_temps->next = t; 

} 



} 

void f ree_temp (Temp *t) 
{ 

/* XXX assumes temp really is on active li 
if( t->prev==t ) { 

active_temps = NULL; 

} else { 

t->prev->next = t->next; 
t->next->prev = t->prev; 

if( t== active_temps ) { 

active_temps = t->prev; 

} 

} 

if( free_temps ) { 

t->next = free_temps; 

t->prev = f ree_temps->prev; 

f ree_temps->prev->next = t; 

f ree_temps->prev = t; 

} else { 

free_temps = t; 

f ree_temps->prev = t; 

f ree_temps->next = t; 

} 



void f ree_temps (void) 
{ 

Temp *t, *tt; 

if( active_temps==NULL ) 

return; 

} 

t = active_temps->next; 

while ( t!= active_temps ) 

tt = t->next; 

f ree_temp (t) ; 

t = tt; 

} 

f ree_temp ( active_temps ) ; 



if( free_temps==NULL ) { 

free_temps = active_temps ; 

} else { 

active_temps->prev->next = f ree_temps ; 

f ree_temps->prev = active_temps->prev; 

active_temps->next->prev = f ree_temps->prev->next; 

f ree_temps->prev->next = active_temps->next; 

} 

*/ 

active_temps = NULL; 



/* initialization and cleanup routines for the shader being executed. we 
store the original underlying pixels in blend_temp in case we must 
blend a partially transparent result into the f ramebuf f er . on cleanup, 
we restore these pixels by writing over the new image that has been 
created by this shader. */ 

FILE * shader_open (char *name) 

{ 

char path [1024] ; 
char n [256] ; 
char *c, *cp; 
FILE *fp; 

strcpy (path,getenv("SHADERS") ) ; 

cp = path; 

c = strchr (cp, ' : ' ) ; 

while ( c!=NULL ) { 
*c = '\0'; 

strcpy (n, cp) ; 
strcat (n, "/") ; 
strcat (n, name) ; 
strcat (n, " . soo" ) ; 

if( (fp = fopen (n, "r") ) ! =NULL ) { 
return fp; 

} 

cp = c+1; 

c = strchr (cp, ' : ' ) ; 

} 

strcpy (n, cp) ; 
strcat (n, "/") ; 
strcat (n, name) ; 
strcat (n, " . soo" ) ; 

return f open (n, "r" ) ; 



Shader * shader_install (char *name, Shader **list, 

void *(*shader) (char *name, Rtlnt n, RtToken tokens [], RtPointer values [])) 



{ 

Shader *s; 



s = (Shader *) malloc (sizeof (Shader) ) ; 
s->name = (char *) malloc (strlen (name) +1) ; 
strcpy (s->name, name) ; 
s->shader = shader; 
s->next = *list; 
s->L = NULL; 
s->Cl = NULL; 
*list = s; 

return (s) ; 

} 

extern void *pack_args (char *nm, Rtlnt n, RtToken tokens [], RtPointer 
values [ ] ) ; 

Shader * shader_lookup (char *name, Shader **list) 

{ 

Shader *s; 
FILE *fp; 

s = *list; 

while ( s!=NULL ) { 

if( ! strcmp (s->name, name) ) 
return (s) ; 

s = s->next; 

} 

fp = shader_open (name) ; 

if( fp==NULL ) { 

fprintf ( stderr , "no surface shader file: %s\n",name); 

return NULL; 

} 

/* pack args here? */ 
f close ( fp) ; 

s = shader_install (name, list, pack_args) ; 

return s; 

} 



static Temp * blend_temp = NULL; 

void shader_init (RiAttributes *att, Dlist *dlist) 

{ 

DrawOp d; 

blend_temp = new_temp(); 

reg_store ( blend_temp, rgba_rgba) ; 

/* set alpha to zero to do looping */ 



glColorMask(0, 0,0,1); 
d.cscale[0] = 1.; 
d.cscale[l] = 1.; 
d.cscale[2] = 1.; 
d.cscale[3] = 0.; 

d.op = ps_flatpoly; 

fb_load(&d) ; 

glColorMaskd, 1,1,1); 

/* lay in stencil image to mask where we have geometry */ 

d.dlop = dlist->list; 

d.att = att; 

d.cscale[0] = 1.; 

d.cscale[l] = 1.; 

d.cscale[2] = 1.; 

d.cscale[3] = 1.; 

d.op = ps_geometry; 

glClear( GL_STENCIL_BUFFER_BIT ); 
glStencilFunc (GL_ALWAYS, 0x1, 0x1); 
glStencilOp (GL_REPLACE, GL_KEEP, GL_REPLACE) ; 
glEnable (GL_STENCIL_TEST) ; 

fb_load(&d) ; 

glStencilFunc (GL_EQUAL, 0x1, 0x1); 
glStencilOp (GL_KEEP, GL_KEEP, GL_KEEP) ; 

} 

void shader_cleanup (void) 

{ 

if( blend_temp ) { 

DrawOp drop; 



glEnable (GL_BLEND) ; 

glBlendFunc ( GL_ONE_MI NU S_D S T_AL PHA , GL_D S T_AL PHA ) ; 

drop . cscale [ 0 ] = 1.; 

drop . cscale [ 1 ] = 1.; 

drop . cscale [2 ] = 1.; 

drop. cscale [3] = 1.; 



drop. temp = blend_temp; 

drop.lut = drop . temp->id; 
fb_load ( &drop) ; 

glDisable (GL_BLEND) ; 
glBlendFunc (GL_ONE, GL_ZERO) ; 

glDisable (GL_STENCIL_TEST) ; 

f ree_temp ( blend_temp) ; 

blend_temp = NULL; 

} else { 

glDisable (GL_STENCIL_TEST) ; 

} 




f ree_temps ( ) ; 

} 



/* antiquated functions; may put back in or not in the future */ 



void sp_normaleye (DrawOp *drop) 

{ 

DlistOp *dlop = drop->dlop; 
RiAttributes *att = drop->att; 
/* float *col = drop->cscale; */ 
float whi[4] = { 1 . , 1 . , 1 . , 1 . } ; 
float blk[4] = {0.,0.,0.,1.}; 
float x[4] = {l.,0.,0.,0.}; 
float y[4] = {0.,1.,0.,0.}; 
float z[4] = {0.,0.,1.,0.}; 



_material_set (blk, whi, blk, 1 . ) ; 



glPushMatrix ( ) ; 
glLoadldentity ( ) ; 
gl Light fv (GL_LIGHT1 , 
glLightfv (GL_LIGHT1, 
glLightfv (GL_LIGHT1, 
glLightfv (GL_LIGHT1, 
glLightfv (GL_LIGHT2 , 
glLightfv (GL_LIGHT2 , 
glLightfv (GL_LIGHT2 , 
glLightfv (GL_LIGHT2 , 
glLightfv (GL_LIGHT3, 
glLightfv (GL_LIGHT3, 
glLightfv (GL_LIGHT3 , 
glLightfv (GL_LIGHT3, 
glPopMatrix () ; 



GL_AMBIENT, blk) ; 
GL_DIFFUSE, x) ; 
GL_SPECULAR, blk) ; 
GL_POSITION, x) ; 
GL_AMBIENT, blk) ; 
GL_DIFFUSE, y) ; 
GL_SPECULAR, blk) ; 
GL_POSITION, y) ; 
GL_AMBIENT, blk) ; 
GL_DIFFUSE, z); 
GL_SPECULAR, blk) ; 
GL_POSITION, z); 



glEnable (GL_LIGHTING) ; 

glLightModelf ( GL_LIGHT_MODEL_TWO_S I DE , GL_FALSE ) ; 



glDisable (GL_LIGHT0) ; 
glEnable (GL_LIGHT1) ; 
glEnable (GL_LIGHT2) ; 
glEnable (GL_LIGHT3) ; 

ri_setattributes (att,NULL) ; 

dlist_execute (dlop) ; 



glPushMatrix ( ) ; 
glLoadldentity ( ) ; 



x[0] = -1.; 

gl Light fv (GL_LIGHT1 , GL_POSITION, x) ; 

y[i] = -l.; 

glLightfv (GL_LIGHT2 , GL_POSITION, y) ; 
z[2] = -1.; 

glLightfv (GL_LIGHT3, GL_POSITION, z); 
glPopMatrix () ; 



glEnable (GL_BLEND) ; 
glBlendFunc (GL_ONE, GL_ONE) ; 

glBlendEquationEXT (GL_FUNC_REVERSE_SUBTRACT_EXT) ; 

ri_setattributes (att,NULL) ; 

dlist_execute (dlop) ; 

glBlendEquationEXT (GL_FUNC_ADD_EXT) ; 
glBlendFunc (GL_ONE, GL_ZERO) ; 
glDisable (GL_BLEND) ; 



glEnable (GL_LIGHT0) ; 
glDisable (GL_LIGHT1 ) ; 
glDisable (GL_LIGHT2) ; 
glDisable (GL_LIGHT3) ; 



glLightModelf ( GL_LIGHT_MODEL_TWO_S I DE , GL_TRUE ) ; 

glFragmentLightModelf SGIX ( GL_FRAGMENT_L I GHT_MODEL_TWO_S I DE_SG I X , GL_TRUE) ; 
glDisable (GL_LIGHTING) ; 



void sl_n(DrawOp *drop) 

{ 

DlistOp *dlop = drop->dlop; 
RiAttributes *att = drop->att; 
float *col = drop->cscale; 
float blk[4] = {0.,0.,0.,1.}; 
float x[4] = {l.,0.,0.,0.}; 
float y[4] = {0.,1.,0.,0.}; 
float z[4] = {0.,0.,1.,0.}; 



_material_set (blk, col,blk, 1 . ) ; 



glPushMat: 
glLoadMat: 
glLightfv 
glLightfv 
glLightfv 
glLightfv 
glLightfv 
glLightfv 
glLightfv 
glLightfv 
glLightfv 
glLightfv 
glLightfv 
glLightfv 
glPopMatr: 



x() 



rixf 
(GL_ 
(GL 
(GL^ 
(GL _ 
(GL^ 
(GL _ 
(GL^ 
(GL^ 
(GL _ 
(GL^ 
(GL _ 
(GL _ 
ix(") 



( (GLfloat * ) CurOptions->worldtocamera) ; 



LIGHT1 , 
LIGHT1 , 
LIGHT1, 
LIGHT1 , 
LIGHT2 ; 
LIGHT2 , 
LIGHT2 ; 
LIGHT2 ; 
LIGHT3 , 
LIGHT3, 
LIGHT3 , 
LIGHT3 , 



GL_AMBIENT, blk) ; 
GL_DIFFUSE, x) ; 
GL_SPECULAR, blk) ; 
GL_POSITION, x) ; 
GL_AMBIENT, blk) ; 
GL_DIFFUSE, y) ; 
GL_SPECULAR, blk) ; 
GL_POSITION, y) ; 
GL_AMBIENT, blk) ; 
GL_DIFFUSE, z); 
GL_SPECULAR, blk) ; 
GL POSITION, z) ; 



/* light_enable () ; */ 

glEnable (GL_LIGHTING) ; 



glLightModelf ( GL_LIGHT_MODEL_TWO_S I DE , GL_FALSE ) ; 

glFragmentLightModelf SGIX ( GL_FRAGMENT_L I GHT_MODEL_TWO_S I DE_SG I X , GL_FALSE) ; 

glDisable (GL_LIGHT0 ) ; 
glEnable (GL_LIGHT1) ; 
glEnable (GL_LIGHT2) ; 
glEnable (GL_LIGHT3) ; 

ri_setattributes (att,NULL) ; 

dlist_execute (dlop) ; 

glPushMatrix () ; 

glLoadMatrixf ( (GLfloat *) CurOptions->worldtocamera) ; 
x[0] = -1.; 

gl Light fv (GL_LIGHT1 , GL_POSITION, x) ; 

y[i] = -l.; 

glLightfv (GL_LIGHT2 , GL_POSITION, y) ; 
z[2] = -1.; 

glLightfv (GL_LIGHT3, GL_POSITION, z); 
glPopMatrix () ; 

glEnable (GL_BLEND) ; 
glBlendFunc (GL_ONE, GL_ONE) ; 

glBlendEquationEXT (GL_FUNC_REVERSE_SUBTRACT_EXT) ; 

ri_setattributes (att,NULL) ; 

dlist_execute (dlop) ; 

glBlendEquationEXT (GL_FUNC_ADD_EXT) ; 
glBlendFunc (GL_ONE, GL_ZERO) ; 
glDisable (GL_BLEND) ; 

glEnable (GL_LIGHT0 ) ; 
glDisable (GL_LIGHT1) ; 
glDisable (GL_LIGHT2) ; 
glDisable (GL_LIGHT3) ; 

glLightModelf ( GL_LIGHT_MODEL_TWO_S I DE , GL_TRUE ) ; 

glFragmentLightModelf SGIX ( GL_FRAGMENT_L I GHT_MODEL_TWO_S I DE_SG I X , GL_TRUE) ; 
glDisable (GL_LIGHTING) ; 
/* light_disable () ; */ 



void sl_ndotv (DrawOp *drop) 

{ 

DlistOp *dlop = drop->dlop; 
RiAttributes *att = drop->att; 
float *col = drop->cscale; 
float blk[4] = {0.,0.,0.,0.}; 
float whi[4] = { 1 . , 1 . , 1 . , 1 . } ; 
float zer[4] = { 0 . , 0 . , 0 . , 1 . } ; 

material_set (blk, col,blk, 30 . ) ; 

glPushMatrix ( ) ; 

glLoadMatrixf ( (GLfloat *) CurOptions->worldtocamera) ; 
glLightfv (GL_LIGHT1, GL_AMBIENT, blk) ; 
glLightfv (GL_LIGHT1, GL_DIFFUSE, whi); 
glLightfv (GL_LIGHT1, GL_SPECULAR, blk); 



gl Light fv (GL_LIGHT1 , GL_POSITION, zer) ; 
glPopMatrix ( ) ; 

/* light_enable () ; */ 

glEnable (GL_LIGHTING) ; 

glDisable (GL_LIGHT0) ; 
glEnable (GL_LIGHT1 ) ; 

ri_setattributes (att,NULL) ; 

dlist_execute (dlop) ; 

glEnable (GL_LIGHT0 ) ; 
glDisable (GL_LIGHT1) ; 

glDisable (GL_LIGHTING) ; 
/* light_disable () ; */ 

} 



